www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Admin/Collect/CollectingXmlAjax.asp

    <%Response.Charset = "GB2312"
Server.ScriptTimeOut=99999%>
<!--#include file="../../Conn.asp" -->
<!--#include file="Conn.asp" -->
<!--#include file="../YWNT_TMS_Inc/YWNT_TMS_Function.asp" -->
<!--#include file="Inc/Function.asp" -->
<%On Error Resume Next
'===================================================================================================================
'软件名称：云网影视管理系统
'Copyright (C) 2002-2007 ywnt.net  All rights reserved.
'产品咨询QQ：489234,2813712
'程序版权：云网互动科技有限公司
'程序开发：云网互动科技有限公司
'官方网站：http://www.ywnt.net 
'郑重声明:
'    1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    3、云网互动科技有限公司保留此软件的法律追究权利
'===================================================================================================================
Call CheckLogin("Collect")
XMovieAddNum=Request.QueryString("XMovieAddNum")
if Request.QueryString("ZtType")=0 then
XSys=Split(Session("XSys"),"|")
SaveFiles=XSys(12)
Set xml=Server.CreateObject("Microsoft.XMLDOM")
xml.Async=false
xml.loadxml(Session("MovieXml"))
If xml.ReadyState>2 Then
set item=xml.getelementsbytagname("movie").item(XMovieAddNum)
XMovieName=item.selectSingleNode("name").text
XMovieActor=item.selectSingleNode("actor").text
XMoviePic=item.selectSingleNode("big_pic").text
XMovieContent=item.selectSingleNode("description").text

XTypeID=item.attributes.getNamedItem("sub_type").text
HomeVersions="影片名称："&XMovieName&"<br>影片栏目："&XTypeID&"<br>影片演员："&XMovieActor&"<br>影片图片："&XMoviePic&"<br>影片介绍："&XMovieContent

set RS_MOVIE=Server.CreateObject(YWNT_TMS_RS)
sql_MOVIE="select * from YWNT_TMS_Movie Where MovieName='"&XMovieName&"' and XunLei=1"
RS_MOVIE.open sql_MOVIE,conn,1,3
if RS_MOVIE.eof then
RS_MOVIE.addnew
if SaveFiles<>"" then
RS_MOVIE("MoviePic")=getHTTPimg(XMoviePic,"/")
else
RS_MOVIE("MoviePic")=XMoviePic
end if
end if
RS_MOVIE("SeverID")=XSys(0)
RS_MOVIE("TypeID")=CollectTypeZH(XTypeID)
RS_MOVIE("MovieName")=XMovieName
if XMovieActor="" then
RS_MOVIE("MovieActor")=XMovieName
else
RS_MOVIE("MovieActor")=XMovieActor
end if
RS_MOVIE("MovieRegion")=XSys(1)
RS_MOVIE("MovieCoin")=XSys(2)
RS_MOVIE("MovieClick")=XSys(3)
RS_MOVIE("MovieCompetence")=XSys(4)
RS_MOVIE("MovieGroup")=XSys(5)
RS_MOVIE("MovieLook")=Xcheckbox(XSys(6))
RS_MOVIE("MovieDown")=Xcheckbox(XSys(7))
RS_MOVIE("MovieSuggest")=Xcheckbox(XSys(8))
RS_MOVIE("MovieHot")=Xcheckbox(XSys(9))
RS_MOVIE("MovieSerialization")=Xcheckbox(XSys(10))
RS_MOVIE("MovieFeature")=0
RS_MOVIE("MovieFree")=Xcheckbox(XSys(11))
RS_MOVIE("MovieContent")=HTMLDecode(XMovieContent)
RS_MOVIE("MovieAudit")=1
RS_MOVIE("MovieDate")=Now()
RS_MOVIE("InflowType")=2
RS_MOVIE("XunLei")=1
RS_MOVIE.update
RS_MOVIE.close
set RS_MOVIE=nothing

set RS_MOVIE = Conn.execute("select top 1 ID from YWNT_TMS_Movie Where MovieName='"&XMovieName&"' and XunLei=1")
MovieID=RS_MOVIE("ID")
RS_MOVIE.Close
Set RS_MOVIE = Nothing
conn.execute "delete from YWNT_TMS_P2PUrl WHERE MovieID = "&MovieID&""

for i=0 to item.getelementsbytagname("file").length-1
P2PUrl=item.getelementsbytagname("file").item(i).selectSingleNode("params").text
conn.Execute("insert into YWNT_TMS_P2PUrl(P2PUrl,MovieID) values('"&P2PUrl&"',"&MovieID&")")
WUrl=WUrl&"<br>影片地址："&P2PUrl
next
Response.Write XMovieAddNum+1&"*|*"&HomeVersions&WUrl

Else
Response.Write xml.ReadyState
End If

Set xml=Nothing
else
Session("MovieXml")=""
Session("XSys")=""
Response.Write XMovieAddNum&"*|*同步数据完成"
end if

function Xcheckbox(Content)
if Content<>"" then
Xcheckbox=1
else
Xcheckbox=0
end if
end function
%>